www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/Artbbs.asp

    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: Artbbs.asp
' Version:3.0
' Date: 2005-10-23
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim id
id=checkStr(trim(request("id")))'去除特殊字符
	if id="" or not isInteger(id) then
	errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
	end if
boardid=checkStr(trim(request("boardid")))'去除特殊字符
	if boardid="" or not isInteger(boardid) then
	errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
	end if	
response.buffer=true
stats="文章评论"
call nav()
if founderr then
	call Mslove_error()
else
call tumppages()'翻页处理
strFileName="Artbbs.asp?id="&id&"&boardid="&boardid&""
call main()
end if
call activeonline()
call footer()

sub main()
%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr align="left"> 
    <th width="60%" height="28" align="center"  class=tablebody1><%=stats%></th>
  </tr>
  <%set rs=server.createobject("adodb.recordset")
sql="select BoardID,Username,Title,Topic,Content,Addtime from Ms_Artbbs where ID="&id&""
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)%>
  <tr align="center"> 
    <td width="100%" height="24" align="left"  class=tablebody2><img src=<%=rs(3)%> border="0"> <%=rs(2)%></td>
  </tr>
  <tr align="center"> 
    <td width="100%" height="80" align="left"  class=tablebody1><%=rs(4)%></td>
  </tr>
  <tr align="center">
    <td  class=tablebody1 align="right">评论者：<a href=dispuser.asp?username=<%=rs(1)%>><%=rs(1)%></a> 时间：<%=rs(5)%></td>
  </tr>
  <%page_count=page_count+1
  rs.movenext
  loop
  else
  response.Write("<tr align=center><td class=tablebody1>没有记录</td></tr>")
  end if
  if totalrec>0 then%>
    <tr align="center">
    <td  class=tablebody1 align="left"><%
		  	call showpage(strFileName)
		  %></td>
  </tr>
  <%end if%>
</table>
<%rs.close
end sub
%>